/*  Novelties: A visual novel programming language based on JavaFX
    Copyright (C) 2008  Hao Xu

    This program is free software: you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation, either version 3 of the License, or
    (at your option) any later version.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with this program.  If not, see <http://www.gnu.org/licenses/>.
 * /
/*
 * Term.fx
 *
 * Created on Apr 13, 2008, 3:59:54 PM
 */

package avgengine.pred;
import avgengine.*;
import avgengine.script.*;

/**
 * @author ertri
 */


class Term {
    operation fv(fv:Variable*):Variable*;
}

operation Term.fv(fv:Variable*) {
    if(this instanceof Variable) {
        var v = (Variable) this;
        for(i in fv) {
            if(i.n == v.n) {
                return;
            }
        }
        insert v into fv;
        return fv;
    }else {
        var f = (FunctionTerm) this;
        for(i in f.params) {
            fv = i.fv(fv);
        }
        return fv;
    }
}







